home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-1.iso / Files / Bus / H-L / Hypercard_invoice.sit / inv_application / stack_-1.xml < prev   
Encoding:
Extensible Markup Language  |  1992-07-01  |  1021 b   |  20 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>1</cardCount>
  7.     <cardID>3040</cardID>
  8.     <listID>2102</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on OpenStack
  17.  
  18. create menu "application"
  19. put "information,register" into menu "application" with ¬¨
  20. menumsg "doInfo,doReg"
  21.  
  22.  
  23. end OpenStack
  24. on doInfo
  25. play "boing"
  26. lock screen
  27. show card field "info1"
  28. show card field "info2"
  29. unlock screen with iris open
  30. wait until the mouseClick
  31. lock screen
  32. hide card field "info1"
  33. hide card field "info2"
  34. unlock screen with iris close
  35.  
  36. end doInfo
  37. on doReg
  38.  
  39. go to stack "register"
  40. end doReg
  41. on CloseStack
  42. reset menubar
  43. end CloseStack
  44. </script>
  45.     <background id="2796" file="background_2796.xml" name="" />
  46.     <card id="3040" file="card_3040.xml" marked="false" name="" owner="2796" />
  47. </stack>
  48.